home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 43 / Mac Magazin and MacEasy Magazine CD - Issue 43.iso / Software / Mobiles Büro / Newton / Newton GPS / GPS Map Lite 2.0b ƒ / MPS-Mac / NP_Loader / Project.txt < prev    next >
Text File  |  1997-06-04  |  849b  |  31 lines
  1. CONSTANT C_Creator           := ":GESTAUD";
  2. CONSTANT C_AppName           := "NP_Load";
  3. CONSTANT C_AppSymbol         := '|NP_Load:GESTAUD|;
  4. CONSTANT C_PackageName       := "NP_Load:GESTAUD";
  5. CONSTANT C_NAV_PointSoup     := "NAV Points:GPS Map:GESTAUD";
  6. CONSTANT C_OwnerAppSymbol    := '|GPS Map:GESTAUD|; // for real application
  7.  
  8. DEFCONST ('MakeDataFrame, FUNC (S1, S2, S3, S4, S5)
  9.   {Name   : S1,
  10.    Type   : S2,
  11.    Comment: S3,
  12.    Lat    : S4,
  13.    Long   : S5}
  14. );
  15.  
  16.  
  17. //Clone entire data set to use a common map
  18. DEFCONST ('CloneWithCommonMap, FUNC (data)
  19. BEGIN
  20.  LOCAL newData := Clone (data);
  21.  LOCAL i, elt;
  22.  FOREACH i,elt IN newData DO
  23.    newData[i] := CALL MakeDataFrame WITH (elt.Name, elt.Type, elt.Comment, elt.Lat, elt.Long);
  24.  RETURN newData;
  25. END
  26. );
  27.  
  28.  
  29. LOAD (HOME & "SampleWp.txt");
  30. DEFCONST ('kNP_Array, CALL CloneWithCommonMap WITH (kNP_Data))
  31.